home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / tex / tpp410n.lha / TPPGlobal.lha / rexx / tpl / blocksatz.tpl next >
Text File  |  1992-05-02  |  1KB  |  58 lines
  1. /* blocksatz-macro */
  2. options results
  3.  
  4. address 'TextPlus'
  5.  
  6. 'BMode' 'line'
  7. 'UnBlock'
  8. 'Top'
  9. 'First'
  10.  
  11. hailstring = "Blocksatz-Makro: Neue Textbreite?"
  12. RequestInt hailstring
  13.  
  14.  
  15. if result ~= "" then do
  16.    /* Neue Textbreite */
  17.    'Width' result
  18.    if rc = 1 then do
  19.       'Display' 'Ungueltige Textbreite eingegeben!'
  20.       exit
  21.    end
  22.    DoNotQuitFirstLoop = 1
  23.    do while DoNotQuitFirstLoop
  24.       /* BlockBeginn markieren */
  25.       'Block'
  26.       DoNotQuitSecondLoop = 1
  27.       do while DoNotQuitSecondLoop
  28.          'Down'
  29.          /* Textende? */
  30.          if rc = 1 then do
  31.             DoNotQuitFirstLoop  = 0
  32.             DoNotQuitSecondLoop = 0
  33.          end
  34.          'GetString'
  35.          /* Leere Zeile? == Absatzende */
  36.          if result = "" then do
  37.             'Up'
  38.             DoNotQuitSecondLoop = 0
  39.          end
  40.       end
  41.       /* Blockende markieren */
  42.       'Block'
  43.       /* Blocksatz */
  44.       'Justify' 'block'
  45.       /* an das Ende des aktuellen Blocks springen */
  46.       'BBottom'
  47.       /* und danach an den Beginn des naechsten Absatzes */
  48.       'Down'
  49.       'Down'
  50.    end
  51.    'UnBlock'
  52.    'Display' 'Blocksatz-Makro -- Text neu formatiert!'
  53. end
  54. else
  55.    'Display' 'Blocksatz-Makro -- Abbruch!'
  56.  
  57.  
  58.